home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 7
/
007.d81
/
sound phrases
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
6KB
|
383 lines
5 printchr$(14)
50 gosub10000
100 print"[147]"
110 print" [211][207][213][206][196][160][208][200][210][193][211][197][211] "
120 print"[212]ype the phrase you want to hear."
130 inputk$
140 ifk$=""thenrun100
150 for cq=1tolen(k$):l$=mid$(k$,cq,1)
160 ifl$>chr$(127)thenl$=chr$(asc(l$)-128)
165 ifl$<"a"then220
166 ifl$>"z"then220
167 so=asc(l$)-64
170 onsogosub270,400,530,660,800,930,1060,1190,1330
180 so=so-9:ifso<1then220
190 onsogosub1470,1620,1770,1920,2040,2160,2270,2390
200 so=so-8:ifso<1then220
210 onsogosub2500,2610,2720,2830,2960,3090,3220,3350,3500
220 next
230 print:print"[215]ould you like to try another?"
240 getk$:ifk$=""then240
250 ifk$<>"n"thenrun100
260 goto 63000 : *** ***
270 rem a sound routine
280 :
290 s=54272
300 poke s+24,15
310 poke s+6,240
320 poke s+4,17
330 for a=1 to 10
340 for x= 1 to 255 step 25
350 poke s+1,x
360 next x
370 next a
380 poke s+4,32
390 return
400 rem b sound routine
410 :
420 s=54272
430 poke s+24,15
440 poke s+6,240
450 poke s+4,17
460 for a=1 to 10
470 for x= 1 to 255 step 25
480 poke s+1,x/2
490 next x
500 next a
510 poke s+4,16
520 return
530 rem c sound routine
540 :
550 s=54272
560 poke s+24,15
570 poke s+6,240
580 poke s+4,17
590 for a=1 to 10
600 for x=122 to 1 step -18
610 poke s+1,x/2
620 next x
630 next a
640 poke s+4,16
650 return
660 rem d sound routine
670 :
680 s=54272
690 poke s+24,15
700 poke s+6,240
710 poke s+4,17
720 for a=1 to 6
730 x=14
740 poke s+1,x
750 for y=1tot12:next
760 x=221:pokes+1,x:fory=1to12:next
770 next a
780 poke s+4,16
790 return
800 rem e sound routine
810 :
820 s=54272
830 poke s+24,15
840 poke s+6,240
850 poke s+4,17
860 for a=1 to 5
870 for x=122 to 1 step -18
880 poke s+1,x/2 :pokes+1,255-x/2
890 next x
900 next a
910 poke s+4,16
920 return
930 rem f sound routine
940 :
950 s=54272
960 poke s+24,15
970 poke s+6,240
980 poke s+4,17
990 for a=1 to 5
1000 for x=122 to 1 step -55
1010 poke s+1,x/2 :pokes+1,255-x/2
1020 next x
1030 next a
1040 poke s+4,16
1050 return
1060 rem g sound routine
1070 :
1080 s=54272
1090 poke s+24,15
1100 poke s+6,240
1110 poke s+4,17
1120 for a=1 to 5
1130 for x=255 to 1 step -55
1140 poke s+1,x/2 :pokes+1,255-x/2
1150 next x
1160 next a
1170 poke s+4,16
1180 return
1190 rem h sound routine
1200 :
1210 s=54272
1220 poke s+24,15
1230 poke s+6,240
1240 poke s+4,17
1250 for a=1 to 5
1260 for x=255 to 1 step -55
1270 poke s+1,x/2 :pokes+1,255-x/2
1280 pokes+1,rnd(1)*255
1290 next x
1300 next a
1310 poke s+4,16
1320 return
1330 rem i sound routine
1340 :
1350 s=54272
1360 poke s+24,15
1370 poke s+5,190
1380 poke s+6,25
1390 for x= 155 to 10 step -9
1400 poke s+1,x
1410 poke s+4,17
1420 for d=1 to 4: next d
1430 pokes+1,33
1440 next x
1450 poke s+4,16
1460 return
1470 rem j sound routine
1480 :
1490 s=54272
1500 poke s+24,15
1510 poke s+5,190
1520 poke s+6,25
1530 for x= 127 to 10 step -9
1540 poke s+1,x
1550 pokes+1,2*x
1560 poke s+4,17
1570 for d=1 to 4: next d
1580 pokes+1,4
1590 next x
1600 poke s+4,16
1610 return
1620 rem k sound routine
1630 :
1640 s=54272
1650 poke s+24,15
1660 poke s+5,190
1670 poke s+6,25
1680 for x= 127 to 10 step -9
1690 poke s+1,x
1700 pokes+1,255-x
1710 poke s+4,17
1720 for d=1 to 4: next d
1730 pokes+1,4
1740 next x
1750 poke s+4,16
1760 return
1770 rem l sound routine
1780 :
1790 s=54272
1800 poke s+24,15
1810 poke s+5,190
1820 poke s+6,25
1830 for x= 127 to 10 step -17
1840 poke s+1,2*x
1850 pokes+1,129-x
1860 poke s+4,17
1870 for d=1 to 4: next d
1880 pokes+1,4
1890 next x
1900 poke s+4,16
1910 return
1920 rem m sound routine
1930 :
1940 s=54272
1950 poke s+5,9
1960 poke s+6,9
1970 poke s+24,15
1980 poke s+4,17
1990 for d=1 to 40
2000 pokes+1,62-d
2010 poke s+4,17 :nextd
2020 poke s+4,16
2030 return
2040 rem n sound routine
2050 :
2060 s=54272
2070 poke s+5,9
2080 poke s+6,9
2090 poke s+24,15
2100 poke s+4,17
2110 for d=1 to 40
2120 pokes+1,62-d:pokes+1,d
2130 poke s+4,17 :nextd
2140 poke s+4,16
2150 return
2160 rem o sound routine
2170 :
2180 s=54272
2190 poke s+1,14
2200 poke s+5,3
2210 poke s+6,255-15
2220 poke s+24,15
2230 poke s+4,17
2240 for d=1 to 40step4:pokes+1,40-d:pokes+4,17: next d
2250 poke s+4,16
2260 return
2270 rem p sound routine
2280 :
2290 s=54272
2300 poke s+1,14
2310 poke s+5,3
2320 poke s+6,255-15
2330 poke s+24,15
2340 poke s+4,17
2350 for d=40to1step-4:pokes+1,40-d:pokes+4,17: next d
2360 poke s+4,16
2370 return
2380 forcc=1to4: gosub65535:gosub2390:next
2390 rem q sound routine
2400 :
2410 s=54272
2420 poke s+1,14
2430 poke s+5,3
2440 poke s+6,255-15
2450 poke s+24,15
2460 poke s+4,17
2470 for d=41 to 80step 4:pokes+1,80+d:pokes+4,17: next d
2480 poke s+4,16
2490 return
2500 rem r sound routine
2510 :
2520 s=54272
2530 poke s+1,14
2540 poke s+5,3
2550 poke s+6,255-15
2560 poke s+24,15
2570 poke s+4,17
2580 for d=11 to180step22:pokes+4,d :pokes+1,80+d:pokes+4,17: next d
2590 poke s+4,16
2600 return
2610 rem s sound routine
2620 :
2630 s=54272
2640 poke s+1,14
2650 poke s+5,3
2660 poke s+6,255-15
2670 poke s+24,15
2680 poke s+4,17
2690 for d=11 to180step22:pokes+1,d :pokes+4,33 :pokes+1,80+d:pokes+4,17: next d
2700 poke s+4,16
2710 return
2720 rem t sound routine
2730 :
2740 s=54272
2750 poke s+1,14
2760 poke s+5,3
2770 poke s+6,255-15
2780 poke s+24,15
2790 poke s+4,17
2800 ford=11to110step8:pokes+1,d:pokes+4,63:pokes+1,255-d:pokes+4,17:next
2810 poke s+4,16
2820 return
2830 rem u sound routine
2840 :
2850 s=54272
2860 poke s+1,14
2870 poke s+5,3
2880 poke s+6,240
2890 poke s+24,15
2900 poke s+4,17
2910 ford=4 to37step8:pokes+1,d:pokes+4,63:pokes+1,255-d:pokes+4,17
2920 pokes+1,5:pokes+4,33:ford1=1to8:next
2930 nextd
2940 poke s+4,16
2950 return
2960 rem v sound routine
2970 :
2980 s=54272
2990 poke s+1,14
3000 poke s+5,3
3010 poke s+6,240
3020 poke s+24,15
3030 poke s+4,17
3040 ford=2to8:pokes+1,d:pokes+4,33:pokes+1,d*2:pokes+4,17
3050 pokes+1,d*4:pokes+4,33:pokes+1,d*8:pokes+4,17
3060 nextd
3070 poke s+4,16
3080 return
3090 rem w sound routine
3100 :
3110 s=54272
3120 poke s+1,14
3130 poke s+5,3
3140 poke s+6,240
3150 poke s+24,15
3160 poke s+4,17
3170 ford=8to2step-1:pokes+1,d:pokes+4,33:pokes+1,d*2:pokes+4,17
3180 pokes+1,d*4:pokes+4,33:pokes+1,d*8:pokes+4,17
3190 nextd
3200 poke s+4,16
3210 return
3220 rem x sound routine
3230 :
3240 s=54272
3250 poke s+1,14
3260 poke s+5,3
3270 poke s+6,240
3280 poke s+24,15
3290 poke s+4,17
3300 ford=8to2step-1:pokes+1,220-d:pokes+4,33:pokes+1,d*2:pokes+4,17
3310 pokes+1,220-d*4:pokes+4,33:pokes+1,d*8:pokes+4,17
3320 nextd
3330 poke s+4,16
3340 return
3350 rem y sound routine
3360 :
3370 s=54272
3380 poke s+1,14
3390 poke s+5,3
3400 poke s+6,240
3410 poke s+24,15
3420 poke s+4,17
3430 ford=6to10
3440 ford1=1to12stepsin(d)
3450 pokes+1,4*d1:pokes+4,17
3460 next
3470 nextd
3480 poke s+4,16
3490 return
3500 rem z sound routine
3510 :
3520 s=54272
3530 poke s+1,14
3540 poke s+5,3
3550 poke s+6,240
3560 poke s+24,15
3570 poke s+4,17
3580 ford=6to10
3590 ford1=1to12steplog(d)
3600 pokes+1,4*d1:pokes+4,17
3610 next
3620 nextd
3630 poke s+4,16
3640 return
10000 print"[147]":poke53281,1:poke53280,4
10005 print" [211][207][213][206][196][160][208][200][210][193][211][197][211]"
10010 print:print" by"
10015 print:print" [202]immy [215]eiler
10020 [151]783,[194](783)[175]254
10025 [151]781,23:[151]782,12:[158]65520:[153]"<press that key>"
10030 [151]198,0:[146]198,1:[161]a$
10040 [153]"load (NULL)ound (NULL)hrases is a program that does":[153]
10042 [153]"just what it says it does. right$t makes ":[153]
10044 [153]"sounds out of phrases you type in. (NULL)he":[153]
10046 [153]"string you input is taken one character":[153]
10048 [153]"at a time and the appropriate sound for":[153]
10050 [153]"that character is made.":[153]
10052 [153]:[153]:[153]:[153]:[153]" right$t's really quite simple."
10054 [153]" chr$ive it a try!!"
10060 [151]783,[194](783)[175]254
10065 [151]781,23:[151]782,11:[158]65520:[153]"<press that key>"
10070 [151]198,0:[146]198,1:[161]a$
10080 [142]
63000 [143] connect back to [204].[211].
63002 [153]"loadload"[199](34)"payload"[199](34)",8":[153]"run"
63004 [151]198,0:[151]631,13:[151]632,13:[151]198,2:[128]